home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / cmdity / mplsv14d.lha / MPLS_Patch_v1.4_DEMO / Install DataTypes < prev    next >
Text File  |  1996-04-15  |  6KB  |  232 lines
  1. ;
  2. ;  $VER: DataTypes Collection Install v1.0 (10/04/96)
  3. ;
  4.  
  5. ;--------------------------------------------------------------------------;
  6.  
  7.  (if (< (/ (getversion) 65536) 39)
  8.   (abort "Désolé, l'utilisation des datatypes nécessite l'AmigaDOS 3.0 ou supérieur !")
  9.  )
  10.  
  11. ;--------------------------------------------------------------------------;
  12.  
  13.  (complete 0)
  14.  
  15.  (set tempdir "T:")
  16.  (set dtbasedir "DataTypes")
  17.  (set userlevel (select @user-level "NOVICE" "AVERAGE" "EXPERT"))
  18.  (set install-script "**INSTALL**")
  19.  
  20. ;--------------------------------------------------------------------------;
  21.  
  22.  (message
  23.   (cat "\n"
  24.        "DataTypes Collection (10/04/96)"
  25.        "\n\n"
  26.        "Ce script installe dans votre système des datatypes \"Compatibles MPLS Patch\""
  27.        "\n\n"
  28.        "Pour plus de détails, lisez le chapitre \"4.2 Installation de datatypes\" de la documentation de MPLS Patch"
  29.   )
  30.  )
  31.  
  32.  (message
  33.   (cat "\n"
  34.        "Ces datatypes ont été testés et fonctionnent parfaitement avec MPLS Patch.\n\n"
  35.        "**IMPORTANT**\n\n"
  36.        "Ils ne ont pas partis de l'archive de MPLS Patch, et sont donc sous le "
  37.        "copyright de leurs auteurs respectifs (SVP, SUPPORTEZ LE SHAREWARE)."
  38.   )
  39.  )
  40.  
  41. ;--------------------------------------------------------------------------;
  42.  
  43.  (run "C:Copy >NIL: C/LhEx C/Installer RAM: QUIET")
  44.  
  45. ;--------------------------------------------------------------------------;
  46.  
  47.  (set dtchoices
  48.   (askoptions
  49.    (prompt "Sélectionnez les datatypes que vous voulez installer\n('Help' pour version/auteur)")
  50.    (help
  51.     (cat "BMP          v40.4  Gunther Nikl\n"
  52.          "JPEG/JFIF    v39.25 Christoph Feck\n"
  53.          "MacPaint     v42.1  ?\n"
  54.          "PCX          v39.6  Matthias Scheler\n"
  55.          "Picture      v42.1  Commodore\n"
  56.          "PNG          v39.1  Cloanto\n"
  57.          "REKO Cardset v39.2  Arthur Pijpers\n"
  58.          "Sun Raster   v39.6  Arthur Pijpers\n"
  59.          "Targa        v39.2  Arthur Pijpers\n"
  60.          "TIFF         v40.3  Wynants Bert\n"
  61.          "WPG          v39.0  Arthur Pijpers\n"
  62.          "X-Bitmap     v42.1  David N. Junod\n"
  63.          "ZGIF         v39.16 Michael Zucchi\n"
  64.          @askoptions-help
  65.     )
  66.    )
  67.    (choices "BMP"
  68.             "JPEG/JFIF"
  69.             "MacPaint"
  70.             "PCX"
  71.             "Picture"
  72.             "PNG"
  73.             "REKO Cardset"
  74.             "Sun Raster"
  75.             "Targa"
  76.             "TIFF"
  77.             "WordPerfectGfx"
  78.             "X-Bitmap"
  79.             "GIF"
  80.    )
  81.    (default 8191)
  82.   )
  83.  )
  84.  
  85. ;--------------------------------------------------------------------------;
  86.  
  87.  (if (not (exists "SYS:Classes"))
  88.   (makedir "SYS:Classes")
  89.  )
  90.  
  91.  (if (not (exists "SYS:Classes/DataTypes"))
  92.   (makedir "SYS:Classes/DataTypes")
  93.  )
  94.  
  95.  (if (not (exists "SYS:Devs"))
  96.   (makedir "SYS:Devs")
  97.  )
  98.  
  99.  (if (not (exists "SYS:Devs/DataTypes"))
  100.   (makedir "SYS:Devs/DataTypes")
  101.  )
  102.  
  103. ;--------------------------------------------------------------------------;
  104.  
  105.  (set dt 0)
  106.  (while (<= dt 12)
  107.   (
  108.    (if (IN dtchoices dt)
  109.     (
  110.      (set dt-name (select dt "BMP"
  111.                              "JFIF"
  112.                              "MacPaint"
  113.                              "PCX"
  114.                              "Picture"
  115.                              "PNG"
  116.                              "REKO Cardset"
  117.                              "Sun Raster"
  118.                              "Targa"
  119.                              "TIFF"
  120.                              "WordPerfectGfx"
  121.                              "X-Bitmap"
  122.                              "ZGIF"
  123.                  )
  124.      )
  125.  
  126.      (set dt-arch (cat dt-name ".LHA"))
  127.  
  128.      (set dt-lib (select dt "bmp"
  129.                             install-script
  130.                             "macpaint"
  131.                             "pcx"
  132.                             "picture"
  133.                             install-script
  134.                             "reko"
  135.                             "sun"
  136.                             "targa"
  137.                             install-script
  138.                             "wpg"
  139.                             "xbm"
  140.                             "gif"
  141.                  )
  142.      )
  143.  
  144.      (set dt-desc (select dt "Windows BMP"
  145.                              install-script
  146.                              "MacPaint"
  147.                              "PCX"
  148.                              "Picture"
  149.                              install-script
  150.                              "REKO Cardset"
  151.                              "Sun Raster"
  152.                              "Targa"
  153.                              install-script
  154.                              "WPG"
  155.                              "X-Bitmap"
  156.                              "GIF"
  157.                   )
  158.      )
  159.  
  160.      (working (cat "Patientez SVP, désarchivage de " dt-arch "..."))
  161.      (run (cat "RAM:LhEx -fw" tempdir " x \"" (tackon dtbasedir dt-arch) "\""))
  162.  
  163.      (set dt-dir (tackon tempdir dt-name))
  164.  
  165.      (if (= dt-lib install-script)
  166.       (
  167.        (set olddir @execute-dir)
  168.        (set @execute-dir dt-dir)
  169.        (run "RAM:Installer SCRIPT Install APPNAME \"" dt-name " Datatype\" NOLOG DEFUSER " userlevel " LANGUAGE français NOPRINTER")
  170.        (set @execute-dir olddir)
  171.       )
  172.    ; else
  173.       (
  174.        (set dt-libpath (tackon dt-dir (cat dt-lib ".datatype")))
  175.        (set dt-descpath (tackon dt-dir dt-desc))
  176.  
  177.        (if (exists dt-libpath)
  178.         (copylib
  179.          (prompt
  180.           (cat
  181.            "Installation de "
  182.            dt-name
  183.            " Datatype Library"
  184.           )
  185.          )
  186.          (help @copylib-help)
  187.          (source dt-libpath)
  188.          (dest "SYS:Classes/DataTypes")
  189.          (confirm)
  190.          (optional "oknodelete" "force")
  191.         )
  192.        )
  193.  
  194.        (if (exists dt-descpath)
  195.         (copyfiles
  196.          (prompt
  197.           (cat
  198.            "Installation de "
  199.            dt-desc
  200.            " datatype library"
  201.           )
  202.          )
  203.          (help @copyfiles-help)
  204.          (source dt-descpath)
  205.          (dest "SYS:Devs/DataTypes")
  206.          (confirm)
  207.          (infos)
  208.          (noposition)
  209.          (optional "oknodelete" "force")
  210.         )
  211.        )
  212.       )
  213.      )
  214.  
  215.      (run (cat "C:Delete >NIL: FILE \"" (cat dt-dir "#?") "\" ALL FORCE QUIET"))
  216.     )
  217.    )
  218.   (set dt (+ dt 1))
  219.   )
  220.  )
  221.  
  222. ;--------------------------------------------------------------------------;
  223.  
  224.  (run "C:Delete >NIL: FILE RAM:LhEx RAM:Installer ALL FORCE QUIET")
  225.  
  226. ;--------------------------------------------------------------------------;
  227.  
  228.  (complete 100)
  229.  (set @default-dest "SYS:Devs/DataTypes")
  230.  (exit)
  231.  
  232.